VERSION 5.00
Begin VB.Form frmVatLieu 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Dac trung vat lieu"
   ClientHeight    =   4800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7890
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "VatLieu.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4800
   ScaleWidth      =   7890
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Caption         =   "Cuong do tinh toan (N/mm^2):"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Index           =   2
      Left            =   3960
      TabIndex        =   34
      Top             =   60
      Width           =   3855
      Begin VB.TextBox txtf_ub 
         Height          =   360
         Left            =   2880
         TabIndex        =   9
         Text            =   "txtf_ub"
         Top             =   300
         Width           =   855
      End
      Begin VB.TextBox Text1 
         Height          =   360
         Left            =   2880
         TabIndex        =   35
         Text            =   "txtf_ckc"
         Top             =   3660
         Width           =   855
      End
      Begin VB.Label lblHw 
         Caption         =   "Bu long lien ket f_ub:"
         Height          =   285
         Index           =   2
         Left            =   120
         TabIndex        =   36
         Top             =   360
         Width           =   2715
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Mo dun dan hoi (N/mm^2):"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3315
      Index           =   1
      Left            =   3960
      TabIndex        =   26
      Top             =   900
      Width           =   3855
      Begin VB.TextBox txtE_a 
         Height          =   360
         Left            =   2880
         TabIndex        =   10
         Text            =   "txtE_a"
         Top             =   960
         Width           =   855
      End
      Begin VB.TextBox txtE_cms 
         Height          =   360
         Left            =   2880
         TabIndex        =   13
         Text            =   "txtE_cms"
         Top             =   2400
         Width           =   855
      End
      Begin VB.TextBox txtE_s 
         Height          =   360
         Left            =   2880
         TabIndex        =   12
         Text            =   "txtE_s"
         Top             =   1980
         Width           =   855
      End
      Begin VB.TextBox txtE_cp 
         Height          =   360
         Left            =   2880
         TabIndex        =   11
         Text            =   "txtE_cp"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox txtE_cmc 
         Height          =   360
         Left            =   2880
         TabIndex        =   14
         Text            =   "txtE_cmc"
         Top             =   2820
         Width           =   855
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   15
         X2              =   3855
         Y1              =   1455
         Y2              =   1455
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00C0C0C0&
         Index           =   0
         X1              =   0
         X2              =   3840
         Y1              =   1440
         Y2              =   1440
      End
      Begin VB.Label lblTw 
         Caption         =   "Va Suon goi E_a:"
         Height          =   285
         Index           =   4
         Left            =   120
         TabIndex        =   33
         Top             =   1020
         Width           =   2715
      End
      Begin VB.Label lblTw 
         Caption         =   "Bung cot, Canh cot"
         Height          =   285
         Index           =   3
         Left            =   120
         TabIndex        =   32
         Top             =   660
         Width           =   2715
      End
      Begin VB.Label lblHw 
         Caption         =   "Bung dam, Canh cot,"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   31
         Top             =   300
         Width           =   2715
      End
      Begin VB.Label lblTf1 
         Caption         =   "Be tong san E_cms:"
         Height          =   345
         Index           =   2
         Left            =   120
         TabIndex        =   30
         Top             =   2460
         Width           =   2715
      End
      Begin VB.Label lblBf1 
         Caption         =   "Cot thep san E_s:"
         Height          =   285
         Index           =   2
         Left            =   120
         TabIndex        =   29
         Top             =   2040
         Width           =   2715
      End
      Begin VB.Label lblTw 
         Caption         =   "Tam dem E_cp:"
         Height          =   285
         Index           =   2
         Left            =   120
         TabIndex        =   28
         Top             =   1620
         Width           =   2715
      End
      Begin VB.Label lblTf2 
         Caption         =   "Be tong boc (chen) cot E_cmc:"
         Height          =   345
         Index           =   2
         Left            =   120
         TabIndex        =   27
         Top             =   2880
         Width           =   2715
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Cuong do tinh toan (N/mm^2):"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4155
      Index           =   0
      Left            =   60
      TabIndex        =   16
      Top             =   60
      Width           =   3855
      Begin VB.TextBox txtf_ckc 
         Height          =   360
         Left            =   2880
         TabIndex        =   8
         Text            =   "txtf_ckc"
         Top             =   3660
         Width           =   855
      End
      Begin VB.TextBox txtf_ycp 
         Height          =   360
         Left            =   2880
         TabIndex        =   5
         Text            =   "txtf_ycp"
         Top             =   2400
         Width           =   855
      End
      Begin VB.TextBox txtf_sk 
         Height          =   360
         Left            =   2880
         TabIndex        =   6
         Text            =   "txtf_sk"
         Top             =   2820
         Width           =   855
      End
      Begin VB.TextBox txtf_cks 
         Height          =   360
         Left            =   2880
         TabIndex        =   7
         Text            =   "txtf_cks"
         Top             =   3240
         Width           =   855
      End
      Begin VB.TextBox txtf_yrb 
         Height          =   360
         Left            =   2880
         TabIndex        =   4
         Text            =   "txtf_yrb"
         Top             =   1980
         Width           =   855
      End
      Begin VB.TextBox txtf_ywb 
         Height          =   360
         Left            =   2880
         TabIndex        =   0
         Text            =   "txtf_ywb"
         Top             =   300
         Width           =   855
      End
      Begin VB.TextBox txtf_yfb 
         Height          =   360
         Left            =   2880
         TabIndex        =   1
         Text            =   "txtf_yfb"
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox txtf_ywc 
         Height          =   360
         Left            =   2880
         TabIndex        =   2
         Text            =   "txtf_ywc"
         Top             =   1140
         Width           =   855
      End
      Begin VB.TextBox txtf_yfc 
         Height          =   360
         Left            =   2880
         TabIndex        =   3
         Text            =   "txtf_yfc"
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label lblTf2 
         Caption         =   "Be tong boc (chen) cot f_ckc:"
         Height          =   345
         Index           =   0
         Left            =   120
         TabIndex        =   25
         Top             =   3720
         Width           =   2715
      End
      Begin VB.Label lblTw 
         Caption         =   "Tam dem f_ycp:"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   24
         Top             =   2460
         Width           =   2715
      End
      Begin VB.Label lblBf1 
         Caption         =   "Cot thep san f_sk:"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   23
         Top             =   2880
         Width           =   2715
      End
      Begin VB.Label lblTf1 
         Caption         =   "Be tong san f_cks:"
         Height          =   345
         Index           =   1
         Left            =   120
         TabIndex        =   22
         Top             =   3300
         Width           =   2715
      End
      Begin VB.Label lblTf2 
         Caption         =   "Suon goi f_ybr:"
         Height          =   345
         Index           =   1
         Left            =   120
         TabIndex        =   21
         Top             =   2040
         Width           =   2715
      End
      Begin VB.Label lblHw 
         Caption         =   "Bung dam f_ywb:"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   20
         Top             =   360
         Width           =   2715
      End
      Begin VB.Label lblTw 
         Caption         =   "Canh cot f_yfb:"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   19
         Top             =   780
         Width           =   2715
      End
      Begin VB.Label lblBf1 
         Caption         =   "Bungc cot f_ywc:"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   18
         Top             =   1200
         Width           =   2715
      End
      Begin VB.Label lblTf1 
         Caption         =   "Canh cot f_yfc:"
         Height          =   345
         Index           =   0
         Left            =   120
         TabIndex        =   17
         Top             =   1620
         Width           =   2715
      End
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "&OK"
      Height          =   435
      Left            =   6600
      TabIndex        =   15
      Top             =   4290
      Width           =   1215
   End
End
Attribute VB_Name = "frmVatLieu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
     Unload Me
End Sub

Private Sub Form_Load()
     txtf_ywb.Text = "235"
     txtf_yfb.Text = "235"
     txtf_ywc.Text = "235"
     txtf_yfc.Text = "235"
     txtf_yrb.Text = "235"
     txtf_ycp.Text = "235"
     txtf_sk.Text = "460"
     txtf_cks.Text = "20"
     txtf_ckc.Text = "20"
     txtf_ub.Text = "800"
     txtE_a.Text = "210000"
     txtE_cp.Text = "210000"
     txtE_s.Text = "210000"
     txtE_cms.Text = "29000"
     txtE_cmc.Text = "29000"
End Sub

Private Sub txtE_a_GotFocus()
     SelectTextFromTextBox txtE_a
End Sub


Private Sub txtE_a_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtE_a_LostFocus()
     CheckValidNumberInputed txtE_a
End Sub

Private Sub txtE_cmc_GotFocus()
     SelectTextFromTextBox txtE_cmc
End Sub


Private Sub txtE_cmc_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtE_cmc_LostFocus()
     CheckValidNumberInputed txtE_cmc
End Sub

Private Sub txtE_cms_GotFocus()
     SelectTextFromTextBox txtE_cms
End Sub


Private Sub txtE_cms_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtE_cms_LostFocus()
     CheckValidNumberInputed txtE_cms
End Sub

Private Sub txtE_cp_GotFocus()
     SelectTextFromTextBox txtE_cp
End Sub


Private Sub txtE_cp_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtE_cp_LostFocus()
     CheckValidNumberInputed txtE_cp
End Sub

Private Sub txtE_s_GotFocus()
     SelectTextFromTextBox txtE_s
End Sub


Private Sub txtE_s_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtE_s_LostFocus()
     CheckValidNumberInputed txtE_s
End Sub

Private Sub txtf_ckc_GotFocus()
     SelectTextFromTextBox txtf_ckc
End Sub


Private Sub txtf_ckc_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_ckc_LostFocus()
     CheckValidNumberInputed txtf_ckc
End Sub

Private Sub txtf_cks_GotFocus()
     SelectTextFromTextBox txtf_cks
End Sub


Private Sub txtf_cks_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_cks_LostFocus()
     CheckValidNumberInputed txtf_cks
End Sub

Private Sub txtf_sk_GotFocus()
     SelectTextFromTextBox txtf_sk
End Sub


Private Sub txtf_sk_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_sk_LostFocus()
     CheckValidNumberInputed txtf_sk
End Sub

Private Sub txtf_ub_GotFocus()
     SelectTextFromTextBox txtf_ub
End Sub


Private Sub txtf_ub_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_ub_LostFocus()
     CheckValidNumberInputed txtf_ub
End Sub

Private Sub txtf_ycp_GotFocus()
     SelectTextFromTextBox txtf_ycp
End Sub


Private Sub txtf_ycp_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_ycp_LostFocus()
     CheckValidNumberInputed txtf_ycp
End Sub

Private Sub txtf_yfb_GotFocus()
     SelectTextFromTextBox txtf_yfb
End Sub

     
Private Sub txtf_yfb_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_yfb_LostFocus()
     CheckValidNumberInputed txtf_yfb
End Sub

Private Sub txtf_yfc_GotFocus()
     SelectTextFromTextBox txtf_yfc
End Sub


Private Sub txtf_yfc_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_yfc_LostFocus()
     CheckValidNumberInputed txtf_yfc
End Sub

Private Sub txtf_yrb_GotFocus()
     SelectTextFromTextBox txtf_yrb
End Sub


Private Sub txtf_yrb_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_yrb_LostFocus()
     CheckValidNumberInputed txtf_yrb
End Sub

Private Sub txtf_ywb_GotFocus()
     SelectTextFromTextBox txtf_ywb
End Sub


Private Sub txtf_ywb_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_ywb_LostFocus()
     CheckValidNumberInputed txtf_ywb
End Sub

Private Sub txtf_ywc_GotFocus()
     SelectTextFromTextBox txtf_ywc
End Sub


Private Sub txtf_ywc_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtf_ywc_LostFocus()
     CheckValidNumberInputed txtf_ywc
End Sub


